600
How can I display the currency only for not empty cells

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Currency') as EXGRIDLib.Column).ComputedField := 'len(%0) ? currency(dbl(%0)) : ''''';
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('0');
		ItemBackColor[AddItem(Nil)] := $8080ff;
		AddItem('10000.99');
	end;
end
599
Is there a function to display the number of days between two date including the number of hours

with AxGrid1 do
begin
	(Columns.Add('Start') as EXGRIDLib.Column).Width := 32;
	Columns.Add('End');
	(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + '' day(s)'') : '''') + (=:1 ? '' '' : '''' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*' + 
	'24))) != 0 ? =:1 + '' hour(s) '' : '''' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + '' min(s)'' : '''')';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellValue[TObject(h),TObject(1)] := '1/14/2001';
		h := AddItem('2/22/2002 12:00:00 PM');
		CellValue[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
		h := AddItem('3/13/2003');
		CellValue[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
	end;
end
598
Is there a function to display the number of days between two date including the number of hours

with AxGrid1 do
begin
	Columns.Add('Start');
	Columns.Add('End');
	(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '"D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellValue[TObject(h),TObject(1)] := '1/14/2001 11:00:00 PM';
		h := AddItem('2/22/2002 12:00:00 PM');
		CellValue[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
		h := AddItem('3/13/2003');
		CellValue[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
	end;
end
597
How can I display the number of days between two dates

with AxGrid1 do
begin
	Columns.Add('Start');
	Columns.Add('End');
	(Columns.Add('Duration') as EXGRIDLib.Column).ComputedField := '(date(%1)-date(%0)) + '' days''';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellValue[TObject(h),TObject(1)] := '1/14/2001';
		h := AddItem('2/22/2002');
		CellValue[TObject(h),TObject(1)] := '3/14/2002';
		h := AddItem('3/13/2003');
		CellValue[TObject(h),TObject(1)] := '4/11/2003';
	end;
end
596
How can I get second part of the date

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Second') as EXGRIDLib.Column).ComputedField := 'sec(date(%0))';
	with Items do
	begin
		AddItem('1/11/2001 10:10:00 AM');
		AddItem('2/22/2002 11:01:22 AM');
		AddItem('3/13/2003 12:23:01 PM');
		AddItem('4/14/2004 1:11:59 PM');
	end;
end
595
How can I get minute part of the date

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Minute') as EXGRIDLib.Column).ComputedField := 'min(date(%0))';
	with Items do
	begin
		AddItem('1/11/2001 10:10:00 AM');
		AddItem('2/22/2002 11:01:00 AM');
		AddItem('3/13/2003 12:23:00 PM');
		AddItem('4/14/2004 1:11:00 PM');
	end;
end
594
How can I check the hour part only so I know it was afternoon

with AxGrid1 do
begin
	ConditionalFormats.Add('hour(%0)>=12',Nil).Bold := True;
	Columns.Add('Date');
	(Columns.Add('Hour') as EXGRIDLib.Column).ComputedField := 'hour(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
593
What about a function to get the day in the week, or days since Sunday

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('WeekDay') as EXGRIDLib.Column).ComputedField := 'weekday(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
592
Is there any function to get the day of the year or number of days since January 1st

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Day since January 1st') as EXGRIDLib.Column).ComputedField := 'yearday(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
591
How can I display only the day of the date

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Day') as EXGRIDLib.Column).ComputedField := 'day(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
590
How can I display only the month of the date

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Month') as EXGRIDLib.Column).ComputedField := 'month(%0)';
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('2/2/2002 11:00:00 AM');
		AddItem('3/3/2003 12:00:00 PM');
		AddItem('4/4/2004 1:00:00 PM');
	end;
end
589
How can I get only the year part from a date expression

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Year') as EXGRIDLib.Column).ComputedField := 'year(%0)';
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('2/2/2002 11:00:00 AM');
		AddItem('3/3/2003 12:00:00 PM');
		AddItem('4/4/2004 1:00:00 PM');
	end;
end
588
Can I convert the expression to date

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Date') as EXGRIDLib.Column).ComputedField := 'date(dbl(%0))';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('30000.99');
		AddItem('3561.23');
		AddItem('1232.34');
	end;
end
587
Can I convert the expression to a number, double or float

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Number + 2') as EXGRIDLib.Column).ComputedField := 'dbl(%0)+2';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
586
How can I display dates in long format

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('LongFormat') as EXGRIDLib.Column).ComputedField := 'longdate(%0)';
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('2/2/2002 11:00:00 AM');
		AddItem('3/3/2003 12:00:00 PM');
		AddItem('4/4/2004 1:00:00 PM');
	end;
end
585
How can I display dates in short format

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('ShortFormat') as EXGRIDLib.Column).ComputedField := 'shortdate(%0)';
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('2/2/2002 11:00:00 AM');
		AddItem('3/3/2003 12:00:00 PM');
		AddItem('4/4/2004 1:00:00 PM');
	end;
end
584
How can I display the time only of a date expression

with AxGrid1 do
begin
	Columns.Add('Date');
	(Columns.Add('Time') as EXGRIDLib.Column).ComputedField := '''time is:'' + time(date(%0))';
	with Items do
	begin
		AddItem('1/1/2001 10:00:00 AM');
		AddItem('2/2/2002 11:00:00 AM');
		AddItem('3/3/2003 12:00:00 PM');
		AddItem('4/4/2004 1:00:00 PM');
	end;
end
583
Is there any function to display currencies, or money formatted as in the control panel

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Currency') as EXGRIDLib.Column).ComputedField := 'currency(dbl(%0))';
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('10000.99');
	end;
end
582
How can I convert the expression to a string so I can look into the date string expression for month's name

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Str') as EXGRIDLib.Column).ComputedField := 'str(%0) + '' AA''';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
581
Can I display the absolute value or positive part of the number

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Abs') as EXGRIDLib.Column).ComputedField := 'abs(%0)';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
580
Is there any function to get largest number with no fraction part that is not greater than the value

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Floor') as EXGRIDLib.Column).ComputedField := 'floor(%0)';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
579
Is there any function to round the values base on the .5 value

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Round') as EXGRIDLib.Column).ComputedField := 'round(%0)';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
578
How can I get or display the integer part of the cell

with AxGrid1 do
begin
	Columns.Add('Number');
	(Columns.Add('Int') as EXGRIDLib.Column).ComputedField := 'int(%0)';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
577
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )

with AxGrid1 do
begin
	(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'proper(%0)';
	with Items do
	begin
		h := AddItem('root');
		InsertItem(h,Nil,'child child');
		InsertItem(h,Nil,'child child');
		InsertItem(h,Nil,'child child');
		ExpandItem[h] := True;
	end;
end
576
Is there any option to display cells in uppercase

with AxGrid1 do
begin
	(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'upper(%0)';
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Chld 3');
		ExpandItem[h] := True;
	end;
end
575
Is there any option to display cells in lowercase

with AxGrid1 do
begin
	(Columns.Add('') as EXGRIDLib.Column).FormatColumn := 'lower(%0)';
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Chld 3');
		ExpandItem[h] := True;
	end;
end
574
How can I display the column using currency format and enlarge the font for certain values

with AxGrid1 do
begin
	with (Columns.Add('Currency') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
		FormatColumn := 'len(value) ? ((0:=dbl(value)) < 10 ? ''<fgcolor=808080><font ;7>'' : ''<b>'') + currency(=:0)';
	end;
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('9.94');
		AddItem('11.94');
		AddItem('1000');
	end;
end
573
How can I highlight only parts of the cells

with AxGrid1 do
begin
	with (Columns.Add('') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
		FormatColumn := 'value replace ''hil'' with ''<fgcolor=FF0000><b>hil</b></fgcolor>''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
572
How can I get the number of occurrences of a specified string in the cell

with AxGrid1 do
begin
	Columns.Add('');
	with (Columns.Add('occurrences') as EXGRIDLib.Column) do
	begin
		ComputedField := 'lower(%0) count ''o''';
		FormatColumn := '''contains '' + value + '' of \''o\'' chars''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1 oooof the root');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
571
How can I display dates in my format

with AxGrid1 do
begin
	with (Columns.Add('Date') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
		FormatColumn := '''<b>'' + year(0:=date(value)) + ''</b><fgcolor=808080><font ;6> ('' + month(=:0) + '' - '' + day(=:0) +'')''';
	end;
	with Items do
	begin
		AddItem('1/21/2001');
		AddItem('2/22/2002');
		AddItem('3/13/2003');
		AddItem('4/24/2004');
	end;
end
570
How can I display dates in short format

with AxGrid1 do
begin
	(Columns.Add('Date') as EXGRIDLib.Column).FormatColumn := 'shortdate(value)';
	with Items do
	begin
		AddItem('1/1/2001');
		AddItem('2/2/2002');
		AddItem('3/3/2003');
		AddItem('4/4/2004');
	end;
end
569
How can I display dates in long format

with AxGrid1 do
begin
	(Columns.Add('Date') as EXGRIDLib.Column).FormatColumn := 'longdate(value)';
	with Items do
	begin
		AddItem('1/1/2001');
		AddItem('2/2/2002');
		AddItem('3/3/2003');
		AddItem('4/4/2004');
	end;
end
568
How can I display only the right part of the cell

with AxGrid1 do
begin
	Columns.Add('');
	with (Columns.Add('Right') as EXGRIDLib.Column) do
	begin
		ComputedField := '%0 right 2';
		FormatColumn := '''"'' + value + ''"''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'SChild 3');
		ExpandItem[h] := True;
	end;
end
567
How can I display only the left part of the cell

with AxGrid1 do
begin
	Columns.Add('');
	(Columns.Add('Left') as EXGRIDLib.Column).ComputedField := '%0 left 2';
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'SChild 3');
		ExpandItem[h] := True;
	end;
end
566
How can I display true or false instead 0 and -1

with AxGrid1 do
begin
	(Columns.Add('Boolean') as EXGRIDLib.Column).FormatColumn := 'value != 0 ? ''true'' : ''false''';
	with Items do
	begin
		AddItem(TObject(True));
		AddItem(TObject(False));
		AddItem(TObject(True));
		AddItem(TObject(0));
		AddItem(TObject(1));
	end;
end
565
How can I save data on XML format

with AxGrid1 do
begin
	LoadXML('http://www.exontrol.net/testing.xml');
	SaveXML('c:/temp/exgrid.xml');
end
564
How can I load data on XML format

with AxGrid1 do
begin
	LoadXML('http://www.exontrol.net/testing.xml');
end
563
I have an EBN file how can I apply different colors to it, so no need to create a new one

with AxGrid1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	SelBackColor := BackColor;
	SelForeColor := ForeColor;
	HasLines := EXGRIDLib.HierarchyLineEnum.exNoLine;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Nil,'Default');
		ItemBackColor[hC] := $1000000;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Light Green');
		ItemBackColor[hC] := $100ff00;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Dark Green');
		ItemBackColor[hC] := $1007f00;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Magenta');
		ItemBackColor[hC] := $1ff7fff;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Yellow');
		ItemBackColor[hC] := $17fffff;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		ExpandItem[h] := True;
	end;
end
562
How can I change the background color or the visual appearance using ebn for a particular column

with AxGrid1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(16777216);
		(Add('Column 3') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(16777471);
		Add('Column 4');
	end;
end
561
How can I change the foreground color for a particular column

with AxGrid1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderForeColor] := TObject(8439039);
		Add('Column 3');
	end;
end
560
How can I change the background color for a particular column

with AxGrid1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
		Add('Column 3');
	end;
end
559
Does your control support RightToLeft property for RTL languages or right to left

with AxGrid1 do
begin
	BeginUpdate();
	ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth;
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('P1') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		PartialCheck := True;
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	RightToLeft := True;
	EndUpdate();
end
558
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right

with AxGrid1 do
begin
	BeginUpdate();
	ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth;
	with Columns do
	begin
		Add('C1');
		Add('C2');
		Add('C3');
		Add('C4');
		Add('C5');
		Add('C6');
		Add('C7');
		Add('C8');
	end;
	RightToLeft := True;
	EndUpdate();
end
557
Can I display the cell's check box after the text

with AxGrid1 do
begin
	with (Columns.Add('Column') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check';
	end;
	with Items do
	begin
		CellHasCheckBox[TObject(AddItem('Caption 1')),TObject(0)] := True;
		CellHasCheckBox[TObject(AddItem('Caption 2')),TObject(0)] := True;
	end;
end
556
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	(Columns.Add('Column') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check,icon,icons,picture';
	with Items do
	begin
		h := AddItem('Text');
		CellImage[TObject(h),TObject(0)] := 1;
		CellHasCheckBox[TObject(h),TObject(0)] := True;
	end;
end
555
Can I have an image displayed after the text. Can I get that effect without using HTML content

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	(Columns.Add('Column') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,icon,check,icons,picture';
	with Items do
	begin
		h := AddItem('Text');
		CellImage[TObject(h),TObject(0)] := 1;
	end;
end
554
How can I display the column's header using multiple lines

with AxGrid1 do
begin
	HeaderHeight := 128;
	HeaderSingleLine := False;
	(Columns.Add('This is just a column that should break the header.') as EXGRIDLib.Column).Width := 32;
	Columns.Add('This is just another column that should break the header.');
end
553
How can include the values in the inner cells in the drop down filter window

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exRowLines;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarBlanks,'');
	set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
	with (Columns.Add('Single Column') as EXGRIDLib.Column) do
	begin
		HTMLCaption := 'Single column with <b>inner cells</b>';
		ToolTip := 'Click the drop down filter button, and the filter list includes the inner cells values too.';
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGRIDLib.FilterListEnum.exIncludeInnerCells;
	end;
	ShowFocusRect := False;
	with Items do
	begin
		s := SplitCell[TObject(AddItem('S 1.1')),TObject(0)];
		CellValue[Nil,TObject(s)] := 'S 1.2';
		CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
		CellBackColor[Nil,TObject(s)] := $1000000;
		CellWidth[Nil,TObject(s)] := 84;
		s := SplitCell[TObject(AddItem('S 2.1')),TObject(0)];
		CellValue[Nil,TObject(s)] := 'S 2.2';
		CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
		CellWidth[Nil,TObject(s)] := 84;
		s := SplitCell[TObject(AddItem('S 3.1')),TObject(0)];
		CellValue[Nil,TObject(s)] := 'S 3.2';
		CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
		CellBackColor[Nil,TObject(s)] := $1000000;
		CellWidth[Nil,TObject(s)] := 84;
	end;
end
552
How can I sort the value gets listed in the drop down filter window

with AxGrid1 do
begin
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	MarkSearchColumn := False;
	set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,'');
	set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarBlanks,'');
	set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
	with (Columns.Add('P1') as EXGRIDLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGRIDLib.FilterListEnum.exSortItemsDesc;
	end;
	with (Columns.Add('P2') as EXGRIDLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGRIDLib.FilterListEnum.exSortItemsAsc;
	end;
	with Items do
	begin
		h := AddItem('Z3');
		CellValue[TObject(h),TObject(1)] := 'C';
		CellValue[TObject(InsertItem(h,Nil,'Z1')),TObject(1)] := 'B';
		CellValue[TObject(InsertItem(h,Nil,'Z2')),TObject(1)] := 'A';
		ExpandItem[h] := True;
	end;
end
551
How can I align the text/caption on the scroll bar

with AxGrid1 do
begin
	set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLowerBackPart,'left');
	set_ScrollPartCaptionAlignment(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLowerBackPart,EXGRIDLib.AlignmentEnum.LeftAlignment);
	set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exUpperBackPart,'right');
	set_ScrollPartCaptionAlignment(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exUpperBackPart,EXGRIDLib.AlignmentEnum.RightAlignment);
	ColumnAutoResize := False;
	Columns.Add(1);
	Columns.Add(2);
	Columns.Add(3);
	Columns.Add(4);
	Columns.Add(5);
	Columns.Add(6);
end
550
How do I select the next row/item

with AxGrid1 do
begin
	Columns.Add('Column');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		SelectItem[NextVisibleItem[FocusItem]] := True;
	end;
end
549
How do I enable resizing ( changing the height ) the items at runtime

with AxGrid1 do
begin
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exHLines;
	ScrollBySingleLine := True;
	Columns.Add('Column');
	Items.AddItem('Item 1');
	with Items do
	begin
		ItemHeight[AddItem('Item 2')] := 48;
	end;
	Items.AddItem('Item 3');
	Items.AddItem('Item 4');
end
548
How do I enable resizing all the items at runtime

with AxGrid1 do
begin
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeAllItems;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exHLines;
	Columns.Add('Column');
	Items.AddItem('Item 1');
	with Items do
	begin
		ItemHeight[AddItem('Item 2')] := 48;
	end;
	Items.AddItem('Item 3');
end
547
How can I remove the filter
with AxGrid1 do
begin
	with (Columns.Add('Column') as EXGRIDLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXGRIDLib.FilterTypeEnum.exBlanks;
	end;
	ApplyFilter();
	ClearFilter();
end
546
How can I vertically display the column's caption, in the header

with AxGrid1 do
begin
	(Columns.Add('A') as EXGRIDLib.Column).HeaderVertical := True;
	(Columns.Add('B') as EXGRIDLib.Column).HeaderVertical := True;
	(Columns.Add('H') as EXGRIDLib.Column).HeaderVertical := False;
end
545
When I have a column in a grid that is set to having a checkbox, and the grid's singlesel is set to false, I am able to toggle the checkboxes for a while, but lose this functionality eventually. Do you have a tip

with AxGrid1 do
begin
	(Columns.Add('Check') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
	SingleSel := False;
	with Items do
	begin
		AddItem(TObject(True));
		AddItem(TObject(False));
		AddItem(TObject(False));
	end;
end
544
How do I arrange, format or layout the item on multiple levels or lines, as a subform

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	DrawGridLines := EXGRIDLib.GridLinesEnum.exRowLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	MarkSearchColumn := False;
	ScrollBySingleLine := True;
	BackColor := Color.FromArgb(255,255,255);
	SelBackColor := Color.FromArgb(255,255,255);
	(GetOcx() as EXGRIDLib.Grid).SelForeColor := $80000012;
	with Columns do
	begin
		Add('');
		var_Column := (Add('Column') as EXGRIDLib.Column);
		with var_Column do
		begin
			Visible := False;
			Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
		end;
		var_Column1 := (Add('Column') as EXGRIDLib.Column);
		with var_Column1 do
		begin
			Visible := False;
			Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
		end;
		var_Column2 := (Add('Column') as EXGRIDLib.Column);
		with var_Column2 do
		begin
			Visible := False;
			Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
		end;
		var_Column3 := (Add('Column') as EXGRIDLib.Column);
		with var_Column3 do
		begin
			Visible := False;
			with Editor do
			begin
				EditType := EXGRIDLib.EditTypeEnum.CheckValueType;
				Option[EXGRIDLib.EditorOptionEnum.exCheckValue2] := TObject(1);
			end;
		end;
		var_Column4 := (Add('Column') as EXGRIDLib.Column);
		with var_Column4 do
		begin
			Visible := False;
			Editor.EditType := EXGRIDLib.EditTypeEnum.DateType;
		end;
		(Add('Column') as EXGRIDLib.Column).Visible := False;
		var_Column5 := (Add('Column') as EXGRIDLib.Column);
		with var_Column5 do
		begin
			Visible := False;
			Editor.EditType := EXGRIDLib.EditTypeEnum.DropDownType;
		end;
		var_Column6 := (Add('Column') as EXGRIDLib.Column);
		with var_Column6 do
		begin
			Visible := False;
			Def[EXGRIDLib.DefColumnEnum.exCellSingleLine] := TObject(0);
			var_Editor := Editor;
			with var_Editor do
			begin
				EditType := EXGRIDLib.EditTypeEnum.MemoType;
				ButtonWidth := 17;
				Option[EXGRIDLib.EditorOptionEnum.exDownArrow] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exEndKey] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exHomeKey] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exLeftArrow] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exMemoAutoSize] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exMemoVScrollBar] := TObject(-1);
				Option[EXGRIDLib.EditorOptionEnum.exPageDownKey] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exPageUpKey] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exRightArrow] := TObject(0);
				Option[EXGRIDLib.EditorOptionEnum.exUpArrow] := TObject(0);
			end;
			Visible := False;
		end;
		(Add('Column') as EXGRIDLib.Column).Visible := False;
	end;
	with Items do
	begin
		h0 := AddItem('');
		CellValue[TObject(h0),TObject(9)] := 'Dismiss';
		CellFormatLevel[TObject(h0),TObject(0)] := '12;" "[b=0][bg=RGB(248,248,248)]/(" "[b=0][bg=RGB(248,248,248)]:12,(1;" "[b=0]/(" "[b=0]:1,(25;(5;" "[b=0]/(("Subject:"[b=0]:80,' + 
	'(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,(" "[b=0][bg=RGB(255,0,0)]:5,1[b=0])," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0]' + 
	'[bg=RGB(0,0,0)]))/1;" "[b=0]))/20;("Location:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,2[b=0]," "[b=0][bg=' + 
	'RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:10,"Label:"[b=0])):50,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1' + 
	',3[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/50;(10;" "[b=0]/(1;" "[b=0][bg=RGB(255,0,0)]/("Recurrence:"[b=0]:' + 
	'80,"Occurs every day effective 20/04/2007 from 01:00 to 01:01."[b=0])/1;" "[b=0][bg=RGB(255,0,0)])/10;" "[b=0])/23;(4[b=0]:20,"R' + 
	'eminder:"[b=0]:60,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,5[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,' + 
	'0)]),((" "[b=0]:5,6[b=0])):30,((" "[b=0]:10,"Show time as:"[b=0])):90,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,7[b=' + 
	'0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/(12;" "[b=0]/(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,8[b' + 
	'=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/35;(5;" "[b=0]/(" "[b=0]," "[b=0],((" "[b=0]:40,9[b=0])))/5;" "[b=0])' + 
	')," "[b=0]:1)/1;" "[b=0])," "[b=0][bg=RGB(248,248,248)]:12)/12;" "[b=0][bg=RGB(248,248,248)]';
		CellHasCheckBox[TObject(h0),TObject(4)] := True;
		CellHasButton[TObject(h0),TObject(9)] := True;
		CellHAlignment[TObject(h0),TObject(9)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
		CellVAlignment[TObject(h0),TObject(8)] := EXGRIDLib.VAlignmentEnum.exTop;
		CellForeColor[TObject(h0),TObject(8)] := $0;
		CellHasButton[TObject(h0),TObject(6)] := True;
		CellValue[TObject(h0),TObject(6)] := '<img>1</img>';
		CellValueFormat[TObject(h0),TObject(6)] := EXGRIDLib.ValueFormatEnum.exHTML;
		CellHAlignment[TObject(h0),TObject(6)] := EXGRIDLib.AlignmentEnum.CenterAlignment;
		ItemHeight[h0] := 296;
	end;
end
543
How do I arrange, format or layout the item on multiple levels or lines

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	MarkSearchColumn := False;
	DefaultItemHeight := 34;
	(Columns.Add(1) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(2) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(3) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(4) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(5) as EXGRIDLib.Column).Visible := False;
	Columns.Add('General');
	with Items do
	begin
		DefaultItem := AddItem(TObject(0));
		CellValue[TObject(0),TObject(1)] := TObject(1);
		CellValue[TObject(0),TObject(2)] := TObject(2);
		CellValue[TObject(0),TObject(3)] := TObject(3);
		CellValue[TObject(0),TObject(4)] := TObject(4);
		CellFormatLevel[TObject(DefaultItem),TObject(5)] := '0,1,2/3,4';
		DefaultItem := AddItem(TObject(5));
		CellValue[TObject(0),TObject(1)] := TObject(6);
		CellValue[TObject(0),TObject(2)] := TObject(7);
		CellValue[TObject(0),TObject(3)] := TObject(8);
		CellValue[TObject(0),TObject(4)] := TObject(9);
		CellFormatLevel[TObject(DefaultItem),TObject(5)] := '3,4/0,1,2';
	end;
end
542
How do I arrange, format or layout the column's header on multiple levels or lines

with AxGrid1 do
begin
	(Columns.Add(1) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(2) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(3) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(4) as EXGRIDLib.Column).Visible := False;
	(Columns.Add(5) as EXGRIDLib.Column).Visible := False;
	HeaderHeight := 32;
	(Columns.Add('General') as EXGRIDLib.Column).FormatLevel := '0,1,2/3,4';
end
541
How do I arrange, format or layout the item on multiple levels or lines

with AxGrid1 do
begin
	MarkSearchColumn := False;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	DefaultItemHeight := 53;
	(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
	var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
	with var_Column do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
	with var_Column1 do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
	var_Column2 := (Columns.Add('Photo') as EXGRIDLib.Column);
	with var_Column2 do
	begin
		Visible := False;
		with Editor do
		begin
			DropDownVisible := False;
			EditType := EXGRIDLib.EditTypeEnum.PictureType;
			Option[EXGRIDLib.EditorOptionEnum.exShowPictureType] := TObject(0);
		end;
	end;
	(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
	with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '15:54,(2/1/4)';
		FormatLevel := '18;18/(15:54,(2/1/4))';
		Width := 196;
	end;
	with (Columns.Add('General Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '(8/18;5):128,((((13/11/12),(6/7/10)),16))';
		FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
		Width := 512;
	end;
	with Items do
	begin
		h0 := AddItem(TObject(1));
		CellValue[TObject(h0),TObject(1)] := 'Davolio';
		CellValue[TObject(h0),TObject(2)] := 'Nancy';
		CellValue[TObject(h0),TObject(3)] := TObject(0);
		CellValue[TObject(h0),TObject(4)] := 'Sales Representative';
		CellValue[TObject(h0),TObject(5)] := 'Ms.';
		CellValue[TObject(h0),TObject(6)] := '12/8/1948';
		CellValue[TObject(h0),TObject(7)] := '5/1/1992';
		CellValue[TObject(h0),TObject(8)] := '507-20th Ave. \r\nE.Apt.  2A';
		CellValue[TObject(h0),TObject(9)] := 'Seattle';
		CellValue[TObject(h0),TObject(10)] := 'WA';
		CellValue[TObject(h0),TObject(11)] := '98122';
		CellValue[TObject(h0),TObject(12)] := 'USA';
		CellValue[TObject(h0),TObject(13)] := '(206) 555-9857';
		CellValue[TObject(h0),TObject(14)] := '5467';
		CellValue[TObject(h0),TObject(15)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
		CellValue[TObject(h0),TObject(16)] := 'Education includes a BA in psychology from Colorado State University in 1970.  She also completed "The Art of the Cold Call."  N' + 
	'ancy is a member of ToastmastersInternational.';
		CellValue[TObject(h0),TObject(17)] := TObject(2);
	end;
	PutItems(GetItems(TObject(0)),Nil);
	with Items do
	begin
		CellFormatLevel[TObject(FocusItem),'General Info'] := '15,10,4';
		CellFormatLevel[TObject(FocusItem),'Personal Info'] := '1/2';
	end;
end
540
How do I arrange, format or layout the data on multiple levels or lines

with AxGrid1 do
begin
	MarkSearchColumn := False;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	DefaultItemHeight := 53;
	(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
	var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
	with var_Column do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
	with var_Column1 do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
	var_Column2 := (Columns.Add('Photo') as EXGRIDLib.Column);
	with var_Column2 do
	begin
		Visible := False;
		with Editor do
		begin
			DropDownVisible := False;
			EditType := EXGRIDLib.EditTypeEnum.PictureType;
			Option[EXGRIDLib.EditorOptionEnum.exShowPictureType] := TObject(0);
		end;
	end;
	(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
	with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '15:54,(2/1/4)';
		FormatLevel := '18;18/(15:54,(2/1/4))';
		Width := 196;
	end;
	with (Columns.Add('General Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '(8/18;5):128,((((13/11/12),(6/7/10)),16))';
		FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
		Width := 512;
	end;
	with Items do
	begin
		h0 := AddItem(TObject(1));
		CellValue[TObject(h0),TObject(1)] := 'Davolio';
		CellValue[TObject(h0),TObject(2)] := 'Nancy';
		CellValue[TObject(h0),TObject(3)] := TObject(0);
		CellValue[TObject(h0),TObject(4)] := 'Sales Representative';
		CellValue[TObject(h0),TObject(5)] := 'Ms.';
		CellValue[TObject(h0),TObject(6)] := '12/8/1948';
		CellValue[TObject(h0),TObject(7)] := '5/1/1992';
		CellValue[TObject(h0),TObject(8)] := '507-20th Ave. \r\nE.Apt.  2A';
		CellValue[TObject(h0),TObject(9)] := 'Seattle';
		CellValue[TObject(h0),TObject(10)] := 'WA';
		CellValue[TObject(h0),TObject(11)] := '98122';
		CellValue[TObject(h0),TObject(12)] := 'USA';
		CellValue[TObject(h0),TObject(13)] := '(206) 555-9857';
		CellValue[TObject(h0),TObject(14)] := '5467';
		CellValue[TObject(h0),TObject(15)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
		CellValue[TObject(h0),TObject(16)] := 'Education includes a BA in psychology from Colorado State University in 1970.  She also completed "The Art of the Cold Call."  N' + 
	'ancy is a member of ToastmastersInternational.';
		CellValue[TObject(h0),TObject(17)] := TObject(2);
	end;
	PutItems(GetItems(TObject(0)),Nil);
	PutItems(GetItems(TObject(0)),Nil);
	PutItems(GetItems(TObject(0)),Nil);
end
539
How do I arrange, format or layout the column's data on multiple levels or lines

with AxGrid1 do
begin
	MarkSearchColumn := False;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	DefaultItemHeight := 68;
	(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
	var_Column := (Columns.Add('Title') as EXGRIDLib.Column);
	with var_Column do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	var_Column1 := (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column);
	with var_Column1 do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Photo') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
	with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '18;18/(15:54,(2/1/4))';
		FormatLevel := '18;18/(15:54,(2/1/4))';
		Width := 196;
	end;
	with (Columns.Add('General Info') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellFormatLevel] := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
		FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
		Width := 512;
	end;
	Items.AddItem('');
	Items.AddItem('');
	Items.AddItem('');
	Items.AddItem('');
end
538
How do I arrange, format or layout the column's header on multiple levels or lines

with AxGrid1 do
begin
	(Columns.Add('EmployeeID') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('LastName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('FirstName') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Handler') as EXGRIDLib.Column).Visible := False;
	with (Columns.Add('Title') as EXGRIDLib.Column) do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	with (Columns.Add('TitleOfCourtesy') as EXGRIDLib.Column) do
	begin
		Visible := False;
		DisplayFilterButton := True;
	end;
	(Columns.Add('BirthDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HideDate') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Address') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('City') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Region') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('PostCode') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Country') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('HomePage') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Extension') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Photo') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('Notes') as EXGRIDLib.Column).Visible := False;
	(Columns.Add('ReportsTo') as EXGRIDLib.Column).Visible := False;
	with (Columns.Add('Personal Info') as EXGRIDLib.Column) do
	begin
		FormatLevel := '18;18/(15:54,(2/1/4))';
		Width := 196;
	end;
	with (Columns.Add('General Info') as EXGRIDLib.Column) do
	begin
		FormatLevel := '18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))';
		Width := 512;
	end;
end
537
How can I select a cells like in excel

with AxGrid1 do
begin
	MarkSearchColumn := False;
	SingleSel := False;
	FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
	(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
	Columns.Add('Column2');
	(Columns.Add('Column3') as EXGRIDLib.Column).Selected := True;
	with Items do
	begin
		DefaultItem := AddItem(TObject(0));
		CellValue[TObject(0),TObject(1)] := TObject(1);
		CellValue[TObject(0),TObject(2)] := TObject(2);
		DefaultItem := AddItem(TObject(3));
		CellValue[TObject(0),TObject(1)] := TObject(4);
		CellValue[TObject(0),TObject(2)] := TObject(5);
		DefaultItem := AddItem(TObject(6));
		CellValue[TObject(0),TObject(1)] := TObject(7);
		CellValue[TObject(0),TObject(2)] := TObject(8);
	end;
end
536
How can I select a multiple column

with AxGrid1 do
begin
	MarkSearchColumn := False;
	SingleSel := False;
	FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
	(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
	Columns.Add('Column2');
	(Columns.Add('Column3') as EXGRIDLib.Column).Selected := True;
	with Items do
	begin
		DefaultItem := AddItem(TObject(0));
		CellValue[TObject(0),TObject(1)] := TObject(1);
		CellValue[TObject(0),TObject(2)] := TObject(2);
		DefaultItem := AddItem(TObject(3));
		CellValue[TObject(0),TObject(1)] := TObject(4);
		CellValue[TObject(0),TObject(2)] := TObject(5);
		DefaultItem := AddItem(TObject(6));
		CellValue[TObject(0),TObject(1)] := TObject(7);
		CellValue[TObject(0),TObject(2)] := TObject(8);
	end;
	Items.SelectAll();
end
535
How can I select a column

with AxGrid1 do
begin
	MarkSearchColumn := False;
	SingleSel := False;
	FullRowSelect := EXGRIDLib.CellSelectEnum.exRectSel;
	(Columns.Add('Column1') as EXGRIDLib.Column).Selected := True;
	Columns.Add('Column2');
	with Items do
	begin
		CellValue[TObject(AddItem('One')),TObject(1)] := 'One';
	end;
	with Items do
	begin
		CellValue[TObject(AddItem('Two')),TObject(1)] := 'Two';
	end;
	Items.SelectAll();
end
534
How can I collapse all cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		CollapseAllCards();
	end;
end
533
How can I expand all cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandAllCards();
	end;
end
532
How can I expand or collapse a card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Expanded';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
531
How can I format or arrange the data being displayed in the card

with AxGrid1 do
begin
	HasButtons := EXGRIDLib.ExpandButtonEnum.exNoButtons;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'("Title:",0),1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(164));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(18));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
530
How can I format or arrange the data being displayed in the card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'("ABC",2)/(0,3,"DEFGH")/1/0/1/0/1/1,0[bg=RGB(230,230,230)][fg=RGB(255,0,0)');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'');
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
529
How can I hide the tilte for the cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'0/1/0/1/0/1/0/1,0');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleFormat,'');
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
528
How can I display resizing lines between cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewVResizeLine,TObject(True));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHResizeLine,TObject(True));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(8));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(8));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
527
How can edit the text in the card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
	(Columns.Add('Column 1') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
	(Columns.Add('Column 2') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
526
How can I change the height of the card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(64));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
525
How can I display the cards from top to bottom

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewLeftToRight,TObject(False));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
524
How do I change the background color for a specified card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
		ItemForeColor[FocusItem] := $ff;
	end;
end
523
How do I change the visual aspect for a specified card

with AxGrid1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
		ItemBackColor[FocusItem] := $1000000;
	end;
end
522
How do I change the background color for a specified card

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
		ItemBackColor[FocusItem] := $ff;
	end;
end
521
Is there any way to specify the foreground color for the title of the cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleForeColor,TObject(255));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
520
Is there any way to specify the foreground color for all cards, including its title

with AxGrid1 do
begin
	ForeColor := Color.FromArgb(255,0,0);
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
519
How can I change the visual appearance for all cards, including the title

with AxGrid1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(16777216));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleBackColor,TObject(33554432));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
518
Is there any way to specify the background color for all cards, including its title

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(255));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewTitleBackColor,TObject(128));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
517
Is there any way to specify the background color for all cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBackColor,TObject(255));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
516
How can I specify the distance between cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(16));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(16));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
515
How can I resize the cards at runtime

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ItemsAllowSizing := EXGRIDLib.ItemsAllowSizingEnum.exResizeItem;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewVResizeLine,TObject(True));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHResizeLine,TObject(True));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderWidth,TObject(8));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewBorderHeight,TObject(8));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
		ExpandCard[FocusItem] := True;
	end;
end
514
How can show the grid lines for my cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
513
How can I hide the +/- expanding / collapsing buttons in the cards

with AxGrid1 do
begin
	ExpandOnDblClick := False;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
512
How can I hide the +/- expanding / collapsing buttons in the cards

with AxGrid1 do
begin
	HasButtons := EXGRIDLib.ExpandButtonEnum.exNoButtons;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
511
Is there any way to to specify the number of cards being displayed from letf to right

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewColumns,TObject(3));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
510
Is there any way to to specify the width of the cards, so they fit the control's client area

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(0));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewColumns,TObject(2));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
509
Is there any way to to specify the width of the cards, so they fit the control's client area

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(0));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
508
Is there any way to to specify the width of the cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewWidth,TObject(64));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
507
Is there any way to indent the control's data relative to the borders or the frame of the control

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	HeaderVisible := False;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exBorderWidth,TObject(8));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exBorderHeight,TObject(8));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
506
Is there any way to indent the control's data relative to the borders or the frame of the control

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	ViewMode := EXGRIDLib.ViewModeEnum.exTableView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exTableView,EXGRIDLib.ViewModeOptionEnum.exBorderWidth,TObject(8));
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exTableView,EXGRIDLib.ViewModeOptionEnum.exBorderHeight,TObject(8));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'Item 1.1';
		CellValue[TObject(AddItem('Item 2')),TObject(1)] := 'Item 1.2';
		CellValue[TObject(AddItem('Item 3')),TObject(1)] := 'Item 1.3';
	end;
end
505
How can I display my rows or items as a table

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	ViewMode := EXGRIDLib.ViewModeEnum.exTableView;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'Item 1.1';
		CellValue[TObject(AddItem('Item 2')),TObject(1)] := 'Item 1.2';
		CellValue[TObject(AddItem('Item 3')),TObject(1)] := 'Item 1.3';
	end;
end
504
How can I display my rows as cards

with AxGrid1 do
begin
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	ViewMode := EXGRIDLib.ViewModeEnum.exCardView;
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewFormat,'1');
	set_ViewModeOption(EXGRIDLib.ViewModeEnum.exCardView,EXGRIDLib.ViewModeOptionEnum.exCardViewHeight,TObject(36));
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		CellValue[TObject(AddItem('Card 1')),TObject(1)] := 'Card 1.1';
		CellValue[TObject(AddItem('Card 2')),TObject(1)] := 'Card 1.2';
		CellValue[TObject(AddItem('Card 3')),TObject(1)] := 'Card 1.3';
	end;
end
503
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened

with AxGrid1 do
begin
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exLeftArrow,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exRightArrow,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exUpArrow,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exDownArrow,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exHomeKey,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exEndKey,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exPageUpKey,TObject(0));
	set_DefaultEditorOption(EXGRIDLib.EditorOptionEnum.exPageDownKey,TObject(0));
	(Columns.Add('Edit') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
	(Columns.Add('Edit') as EXGRIDLib.Column).Editor.EditType := EXGRIDLib.EditTypeEnum.EditType;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
	end;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
	end;
end
502
How can I expand predefined items in a drop down list editor as I type

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('DropDown') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
		with Editor do
		begin
			Option[EXGRIDLib.EditorOptionEnum.exExpandOnSearch] := TObject(True);
			EditType := EXGRIDLib.EditTypeEnum.DropDownListType;
			DropDownAutoWidth := EXGRIDLib.DropDownWidthType.exDropDownEditorWidth;
			AddItem(1,'<b>CObject</b> class',TObject(1));
			InsertItem(2,'<b>CCmdTarget</b> class',TObject(2),TObject(1));
			InsertItem(3,'<b>CWnd</b> class',TObject(3),TObject(2));
			InsertItem(6,'<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>',TObject(1),TObject(1));
			AddItem(4,'Exceptions',TObject(1));
			InsertItem(7,'<b>System</b> Exceptions',TObject(2),TObject(4));
			AddItem(5,'File Services',TObject(2));
		end;
	end;
	with Items do
	begin
		AddItem(TObject(1));
		AddItem(TObject(2));
	end;
end
501
How can I add an extra button to a date picker editor

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	DefaultItemHeight := 20;
	with (Columns.Add('Date') as EXGRIDLib.Column).Editor do
	begin
		EditType := EXGRIDLib.EditTypeEnum.DateType;
		AddButton('B1',TObject(2),TObject(1),'This is a bit of text that''s shown when the cursor hovers the button B1',Nil,Nil);
		ButtonWidth := 20;
	end;
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
	end;
end